home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d12
/
v8n09.arc
/
CALC.BAT
< prev
next >
Wrap
DOS Batch File
|
1989-04-26
|
653b
|
28 lines
ECHO OFF
REM CALC.BAT - BY: Randy J Guyan
CLS
IF "%1"=="" GOTO no_expression
IF "%2"=="" GOTO just_answer
IF "%2"=="#" GOTO show_equation
GOTO error
:just_answer
ECHO 1?"Ans= ";%1:SYSTEM>Q.X
GOTO continue
:show_equation
ECHO 1?"%1= ";%1:SYSTEM>Q.X
:continue
IF NOT EXIST Q.X GOTO error
BASICA Q.X
ERASE Q.X
GOTO end
:error
ECHO Sorry, an error has occurred --- please check your equation.
ECHO Max len= 100. If you enter '#' (w/o quotes) as a second
ECHO parameter, the maximum len= 50. You may not put any spaces
ECHO in your equation.
IF EXIST Q ERASE Q
GOTO end
:no_expression
ECHO No expression was specified!
:end